(defun C:CASS2Pnt
		  (setq ss (ssget '((0 . "insert")(8 . "GCD"))))

)